Discrete Mathematics and Theoretical Computer Science DMTCS vol. (subm.), by the authors, 1-1 



Classical Combinatory Logic 

Karim Nour 1 ^ 

1 LAMA - Equipe de logique , Universite de Savoie , F -73376 Le Bourget du Lac, France 
received revised accepted .... 



Combinatory logic shows that bound variables can be eliminated without loss of expressiveness. It has applications 
both in the foundations of mathematics and in the implementation of functional programming languages. The original 
combinatory calculus corresponds to minimal implicative logic written in a system "a la Hilbert". We present in this 
paper a combinatory logic which corresponds to propositional classical logic. This system is equivalent to the system 
^Prop °f Barbanera and Berardi. 
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1 Introduction 



Combinatory logic started with a paper by Schonfinkel (1924). The aim was an elimination of bound 
variables. He proved that it is possible to reduce the logic to a language consisting of one constructor 
(the application) and some primitive constants. This work was continued by Curry and Feys (1958) 
who introduced the syntax of the terms of combinatory logic. At about the same time, |Church (1941) 
introduced the lambda-calculus as a new way to study the concept of rule. Originally his purpose was 
to provide a foundation for mathematics. Combinatory logic and lambda-calculus, in their type-free 
version, generate essentially the same algebraic and logic structures. The original combinatory calculus 
corresponds to minimal implicative logic presented in a system "a la Hilbert". The codings between 
combinatory logic and simply typed calculus preserve types. Research on combinatory logic has been 
continued essentially by Curry's students, |Hindley and Seldin (1986 ). 

Since it has been understood that the Curry-Howard isomorphism relating proofs and programs can be 



extended to classical logic, various systems have been introduced: the A c -calculus (Krivine (1994)), the 



A ea;K -c alculus (|DeGroote| (|1995|)), the A/i-calculus (Farigoj (|1992D), the A 5?; '"-calculus (Barbanera and 



Berard i ( |1994[ )), the A a -ca lculus ( 
( |200C| )), the dual calculus ( |Wadlei 



jlehof and Sorensen] ( 1994[ )), the A/i/t-calculus ( purien and Herbelin 



( |2005[ )) ... All these calculi are based on logical systems presented 
either in natural deduction or in sequent calculus. 

We wish to define a combinatory calculus which corresponds to classical logic presented "a la Hilbert". 
There are two ways to define such a calculus: 

- Add new combinators for the axioms which define classical logic over minimal logic and give the 
corresponding reduction rules. 

- Code by combinators an existing calculus based on classical logic. 

The first way gives a very "artificial" solution. The reduction rules for the new combinators are rather 
complicated. For the second way, it is necessary to choose a system such that the reduction rules erase the 
abstractors (i.e. the right-hant side of the reduction rules should not introduce new abstractions). One of 
these calculi is the A Sl ""-calculus of Barbanera and Berardi. 

We present in this paper the A Sl,m -calculus and the new combinatory calculus CCL. We also explain 
how to encode each calculus into the other. 

The paper is organized as follows. In section 2, we give the syntax of the terms and the reduction rules 
of the system Ap^™ . We introduce, in section 3, the syntax of the terms and the reduction rules of the 
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system CCL. We encode, in section 4, the system Ap^™ into the system CCL and we encode, in section 
5, the system CCL into the system Ap^™ . We conclude with some future work. 

2 The system Ag™ 

Definition 1 1. We have two sets of base types A — {a, b, ...} and A 1 - = {a x , b^, ...}. 

2. The set ofm-types is defined by the following grammar: 

A::=A\ A 1 - AAA | iV A 

3. The set of types is defined by the following grammar: 

C ::= A \± 

4. We define the negation A 1 - of an m-type as follows: 

• (a) 1 - = a 1 - 



• (A V B) 1 - =A ± AB 1 - 
Lemma 2 For all m-type A, A^ 1 - = A. 



Proof: By induction on A. □ 

lition 3 1. The terms of the 
style) by the following rules: 



Definition 3 1. The terms of the system Ap^™ (called X s -terms) are defined (in the natural deduction 



T,x : A h x : A 

rhu:i Thv.B Tht:A T h t : B 



(u,v) : AAB r h oi (t) : Ay B Tha 2 (t):AVB 

r,i:iht:l r h u : A 1 - T h v : A 

r h Xx.t : A 1 - r hu*D :_L 

We write T \-\ s t : A, if we can type the X s -term t by the type A using the set of declaration of 
variables T. 



2. The reduction rules are the following: 
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(Xx.u) -k v 




u[x := v] 


v * (Xx.u) 




u[x := v] 


Xx.(u * x) 




u (1) 


Ax. (a; * w) 


-v 


u (1) 


(u, v) ~k <T\(w) 




U-kW 


(u,v) -ka 2 (w) 


*ir 2 


V -kW 


<J\(w) -k (u, v) 




W -k U 


a 2 (w) * (u, v) 




WkV 


u[x := v] 


*triv 


v (2) 



(1) if x <£ Fv(u) 

(2) if u and v are X s -terms with type _L, x occurs only one time in u and u ^ x. In this case 
v = v\ * «2 and Xy.x is a sub-term ofu. 

3. We denote by — > the one of previous rules. The transitive (resp. reflexive and transitive) closure of 
— ► is denoted by — > + (res/?. 

4. Wfe denote the X s -terms by small letters like t, u, v, .... 

Remark 4 The reduction — >* is not confluent. For example (Xx.(y -k z))* (Xx' .(y' -k z')) reduces both to 
y-kz and to y' -k z' . 

Theorem 5 (Subject reduction) If V \-\ s u : A and u —>* v, then T \-\ s v : A. 

Proof: It is enough to check that every reduction rule preseves the type. □ 
Theorem 6 (Strong normalization) Every X s -term is strongly normalizing. 



Proof: See Barbanera and Berardi (1994). 



□ 



Remark 7 Barbanera and Berardi ( 1994 ) proved the strong normalization of the X^?™ p -calculus by using 
candidates of reducibility but, unlike the usual construction (for example for Girard's system F), the 
definition of the interpretation of a type needs a rather complex fix-point operation. This proof is highly 
non arithmetical. P. Battyanyi recently gave an arithmetical proof of this result by using the methods 
developed in David and Nout (2005b) to show the strong normalization of systems Xfifi'- calculus and 
Xfifl-calculus. 



3 The system CCL 



Definition 8 1. We use the same types as in section 2. The terms of the system CCL (called c-terms) 
are defined (in the Hilbert style) by the following rules: 



T,x : A\- x : A 



r h K : A 1 - V (B V A) 
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r h S : (A A (B A C^)) V ((A A B- 1 ) V (A 1 - V C)) 



r h C : (A A B) V ((A A B-L) V ^- L ) 



r h P : A 1 - V (S-L V (A AS)) 



rhQii^VfiVB) rhQjiBJ-V^VB) 
r h t/ : A- 1 V B rhT/:A r h ?7 : A 1 - ThV : A 

r h (u v) ■. b r h u*v -.± 

Note that the typed rules does not change the set of declaration of variables. We write Y h c T : A, 
if we can type the c-term U by the type A using the set a declaration of variables T. 

2. Let U, Ui, U2, U n be c-terms. We write (U U\ U2 ■■■ U n ) 
instead of (...({U Ui) U 2 ) ... U n ). 

3. The reduction rules are the following: 



(K U V) 




u 


(SUVW) 


>S 


{{U W) (V W)) 


(CUV)*W 


>cv 


(UW)-k(V W) 


W*(CUV) 




(U W)*(V W) 


(C (K U) I) 


>e r 


U (3) 


(C I (K U)) 


>e t 


U (3) 


(P UV)*(Qi W) 


>pq ± 


u*w 


(P U V) ★ (Q 2 W) 




V-kW 


(Qi W)*(PU V) 


>qpt 




(Q2 W) * (P U V) 


^qP2 




W[x := (C (K U) (K V))] 


^simp 


U*V (4) 



(3) where I = (S K K). 

(4) ifW is a c-term with type _L. 

4. We denote by > the one of previous rules. The transitive (resp. reflexive and transitive) closure o/> 
is denoted by \> + (resp. >*). 

5. We denote the c-terms by capital letters like T, U, V, .... 

Remark 9 1. We have h c I : A 1 - V A and, for all c-term T, (I T) >* T. 

2. The reduction t>* is not confluent. For example (C (K y) (K z)) * (C (K y') (K z')) reduces 
both to y* z and to y' * z'. 

Theorem 10 (subject reduction) IfY h c U : A and U >* V, then T h c V : A 



Proof: It is enough to check that every reduction rule preserves the type. 

Definition f 1 1. A c-term is said to be pre-term iff it does not contain the symbol 
2. A c-term T is said to be star-term iffT — U * V for some pre-terms U, V. 

Lemma 12 1. If A is an m-type and T h c T : A, then T is a pre-term. 
2. IfT h c T :_L, then T is a star-term. 

Proof: Easy. 

Corollary 13 A c-term is either a pre-term or a star-term. 
Proof: By lemma |l2[ 

4 The encoding of Af£j into CCL 

Definition 14 The function <f> : Ap^™ — > CCL is defined as follows: 

• 4>{x) = x 

• 4>{\x.t) = i x {<t>(t)) 

• <j){u -k v) = 4>(u) * <f>(v) 

. = (P 

. ^(t)) = (Qx 0(t)) 
. 0((7 2 (i)) - (Q 2 Ht)) 
where 

• l x {x) = I 

• lx{T) = (K T) ifT is a pre-term and x ^ Var(T) 

• l x {{U V)) = (S l x (U) l x (V)) ifx e Var((U V)) 

• l x (U*V) = (C l x {U)l x (V)) 
Lemma 15 Let A and B be m-types. 

1. IfT, x : A\- C T : B, then T h c l x (T) : A ± V B. 

2. IfT, x : A h c T :_L, then T h c l x (T) : A x . 

Proof: 1 . By induction on T. 
2. Use 1. 
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Theorem 16 If T h As * : A then V h c <p(t) : A. 

Proof: By induction on the typing. Use lemma |l5|. □ 

Lemma 17 1. IfU is a pre-term, then (l x (U) V) >* U[x := V]. 

2. IfU is a star-term, then l x (U) * V >* U[x := V] and V * l x (U) t>* U[x := V]. 

Proof: 1 . By induction on U. 

2. Use 1. □ 

Lemma 18 1. IfV is a pre-term and x ^ Var(V), then l x (U[y := V]) = l x (U)[y := V]. 
2. <f>(u[y := v}) = (f>(u)[y := (f>(v)). 

Proof: 1 . By induction on U. 

2. By induction on u. Use 1. □ 

Remark 19 As in X-calculus, we do not have, in general, if u — > v, then 4>{u) > + 4>{v). The problem 
comes from the (5-reductions "under a lambda". 

Definition 20 We write u — > w v if v is obtained by reducing in u a redex which is not within the scope of 
a X-abstraction. 

Theorem 21 Ifu -^^ v, then 4>(u) t> + 4>(v). 



Proof: By induction on u. Use lemmas 17 and 18l □ 



5 The encoding of CCL into 

Notation 22 Let -Kit denote the \ s -term Xx.(t ★ ai{x)) where i e {1,2} and x ^ Fv(t). For each 
il,...,i n G {1,2}, let iti 1 ...i n t denote the X s -term TTi 1 ...TTi n t. 

Lemma 23 1. tti{u,v) — >* u and ^(w, v) — >* v. 

2. IfV h As t : A A B, then V h As mt : AandT h As n 2 t : B. 

Proof: Easy. □ 

Notation 24 Let [u, v] denote the X s -term Xx.{u * (v, x)) where x G' Fv(u) U Fv(v). 
Lemma 25 1. [Xx.u, v] — >* Xy.u[x := (v,z)]. 

2. IfV h As u : A 1 - V B and V h As v : A, then T, V h As [u, v] : B. 

Proof: Easy. □ 
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Definition 26 The function ip : CCL — * Xp y r " l p is defined as follows: 

• ip(x) = x 

• V'(S) = Ax.([[7rix,7ri22a;], [7Ti 2 a;,7ri22x]] *7r 22 2a;) 

• 1p(C) = Ax.([7TiX, 7T 2 2X] * [7T12X, 7T 2 2x]) 

• V(P) = Ax.((7TlX, 7Tl 2 x) ★7T 2 2X) 

• VKQi) = Ax.(cti(7Tix) *7r2x) 

• VKQ2) = Ax.(ct2(7Tix) *7r 2 x) 

. ^((uv)) = mu),m)} 

• rp(U*V) =t/)(U)*tp(V) 

Theorem 27 IfT \- c U : A, then V h As ip(U) : A. 



Proof: Use lemmas |23] and |25} □ 

Lenuna 28 i>(U[x := V]) = ip(U)[x := ip(V)}. 

Proof: By induction on U. □ 
Theorem 29 If U > V, then tp(U) -►+ ip(V). 



Proof: The following are easy to check: 






[MK),u},v] 


> - 


M, 




[[[i/j(S),u},v},w} 




[[w,w], [w, 


w] 






it 




[[i/){C),u],v]*w 




[it, If] * [d 


w 


w k [[C, u], v] 




[it, w] * [u 


w 


[[V>(C),[V(K),u]],V(I)] 


,+ 


It 




[[^(C)^(I)],^(K), U ]] 


,+ 


It 




[[i>(P),u},v}*^(Qi),M - 


t + 


U-kW 




[[^(P),«],«]*[V(Qa),«>] - 


+ + 


V -k W 




[V>(Qi)H*[[V<(P),«H - 


^+ 


w * u 




[V>(Q a ),iu]*[hKP),u],«] - 


+ + 


W -k V 




[^(C),[^(K),u]],[^(K), M ]] - 


f + 


\z.{u -k v) 



For the reduction rule > s i mp , we use lemma [28) □ 
Theorem 30 (Strong normalization) Every c-term is strongly normalizing. 

Proof: By theorems ||| and ||. □ 
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6 Future work 

Although the strong normalization of the system CCL follows from the one of the system \ S p™ p (see 
theorem |o|), R. David and I aim to prove directly this property. We wish to deduce a simpler proof of 
the strong normalization of the system A P ^™ . For that, it is necessary to show a notion stronger than the 
strong normalization because the coding, presented in section 4, does not simulate all reductions. The 
verifications we made for the ordinary combinatory logic are very promizing. 

In the original combinatory logic the reduction rules of K and S do not allow /3-reduction to be fully 
simulated (the problem comes from the /^-reductions "under a lambda"). Nevertheless, by adding an 
extensionality rule to combinatory logic (i.e. Vx {(Fx) = (G x)} => F = G) one obtains an equational 
theory that corresponds exactly to ^-equivalence. The question is "Is there anything similar for CCL?". 
This question is not an easy one because CCL is not confluent. Consequently, a weaker notion than 
extensionality would be needed. 
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